home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 December / CHIP Turkiye Aralık 1997.iso / internet / lsmirc61.exe / evmisc.in_ / evmisc.in
Encoding:
INI File  |  1997-09-21  |  19.3 KB  |  472 lines
  1. [script]
  2. n0=;
  3. n1=;     this section deals with miscellaneous events, including idle checking,
  4. n2=;     nick changes and on invites and associated tasks, such as excessive
  5. n3=;     nick change detection
  6. n4=;
  7. n5=alias cycleops {
  8. n6=  %t = 0
  9. n7=  :nx
  10. n8=  inc %t
  11. n9=  if $chan(%t) != $null {
  12. n10=    if (($nick($chan(%t),0) = 1) && ($me !isop $chan(%t))) {
  13. n11=      altech -s %dis10 $+ Cycling $chan(%t) to gain ops
  14. n12=      part $chan(%t) | .timer 1 3 join $chan(%t)
  15. n13=    }
  16. n14=    goto nx
  17. n15=  }
  18. n16=}
  19. n17=alias checkidlers {
  20. n18=  %j = 0
  21. n19=  :nx
  22. n20=  inc %j
  23. n21=  set %nick $nick($1,%j)
  24. n22=  if %nick != $null {
  25. n23=    if ($notfriend(%nick,$1)) {
  26. n24=      set %lastspoke $readini $mircdiridle.ini $1 %nick
  27. n25=      if %lastspoke != $null {
  28. n26=        %spoke = $ctime - %lastspoke
  29. n27=        if (%spoke > %idlekickafter [ $+ [ $1 ] ] ) kick $1 %nick idle $dur(%lastspoke)
  30. n28=      }
  31. n29=      else writeini $mircdiridle.ini $1 %nick $ctime
  32. n30=    }
  33. n31=    goto nx
  34. n32=  }
  35. n33=}
  36. n34=alias idlecheck {
  37. n35=  %k = 0
  38. n36=  :nx
  39. n37=  inc %k
  40. n38=  if $chan(%k) != $null {
  41. n39=    if (($me isop $chan(%k)) && (%idlekick [ $+ [ $chan(%k) ] ] )) checkidlers $chan(%k)
  42. n40=    goto nx
  43. n41=  }
  44. n42=}
  45. n43=alias nctxt if (%urd) { z | echo 3 $me $1 is now known as $2 }
  46. n44=alias checknickflood {
  47. n45=  ; given nick $1, should I even care about nick change floods
  48. n46=  ; based off the options for the channel he/she is on? ($true/$false)
  49. n47=  %k = 0
  50. n48=  :nx
  51. n49=  inc %k
  52. n50=  set %chan $comchan($1,%k)
  53. n51=  if %chan != $null {
  54. n52=    if ((%nickflood [ $+ [ %chan ] ] ) && ($me isop %chan) && ($notfriend($1,%chan))) return $true
  55. n53=    if ((%haveoptions [ $+ [ %chan ] ] = $null) && (%nickfloodother) && ($me isop %chan) && ($notfriend($1,%chan))) return $true
  56. n54=    goto nx
  57. n55=  }    
  58. n56=  return $false
  59. n57=}
  60. n58=alias fservnum {
  61. n59=  ; if nick $1 is in fserv, return the fserv window number?
  62. n60=  ; if nick isn't in fserv, return 0
  63. n61=  %i = 0
  64. n62=  :nx
  65. n63=  inc %i
  66. n64=  if $fserv(%i) != $null {
  67. n65=    if $fserv(%i) = $1 return %i
  68. n66=    goto nx
  69. n67=  }
  70. n68=  return 0
  71. n69=}
  72. n70=alias fsady return %fsady [ $+ [ $1 ] ]
  73. n71=alias fservcredits {
  74. n72=  ; how many fserv credits does the address that belongs to nick $1 have?
  75. n73=  if %fservcredits [ $+ [ $fsady($1) ] ] = $null return 0
  76. n74=  else return %fservcredits [ $+ [ $fsady($1) ] ]
  77. n75=}
  78. n76=on 1:SERVOPEN:{
  79. n77=  msg =$nick 12,0Hello $nick
  80. n78=  if (%fsenforceratio) {
  81. n79=    msg =$nick 2,0Current byte ratio:12,0 1 upload to %fservratio download.
  82. n80=    if $fservcredits($nick) = 0 {
  83. n81=      msg =$nick 2,0Your credits:12,0 %startingcredits bytes
  84. n82=      set %fservcredits [ $+ [ $fsady($nick) ] ] %startingcredits
  85. n83=    }
  86. n84=    else msg =$nick 2,0Your credits:12,0 $fservcredits($nick) bytes
  87. n85=    msg =$nick 12,0This is a byte ratio, not a file ratio!
  88. n86=  }
  89. n87=  else msg =$nick 12,0There is currently no ratio being enforced.
  90. n88=}
  91. n89=on 1:SERVCLOSE:close -f $nick
  92. n90=on 1:SERV:get*:{
  93. n91=  set %fnum $fservnum($nick)
  94. n92=  if %fnum = 0 halt
  95. n93=  set %file $fserv(%fnum).cd $+ \ $+ $2
  96. n94=  set %bytes $lof(%file)
  97. n95=  if %bytes = $null { msg =$nick 4,0No such file:3,0 $2 | halt }
  98. n96=  if (%fsenforceratio) {
  99. n97=    if %bytes > $fservcredits($nick) {
  100. n98=      msg =$nick 2,0Sorry, you do not have enough credit for that file
  101. n99=      msg =$nick 2,0 $+ $2 $+ :12,0 %bytes bytes
  102. n100=      msg =$nick 2,0Your Credit:12,0 $fservcredits($nick) bytes
  103. n101=    }
  104. n102=    else {
  105. n103=      msg =$nick 4,0Sending file:3,0 $2 ( $+ %bytes bytes)
  106. n104=      dcc send $nick $fserv(%fnum).cd $+ \ $+ $2
  107. n105=      dec %fservcredits [ $+ [ $fsady($nick) ] ] %bytes
  108. n106=      msg =$nick 2,0Remaining Credit:12,0 $fservcredits($nick) bytes 
  109. n107=    }
  110. n108=  }
  111. n109=  else {
  112. n110=    msg =$nick 4,0Sending file:3,0 $2 ( $+ %bytes bytes)
  113. n111=    dcc send $nick $fserv(%fnum).cd $+ \ $+ $2
  114. n112=  }
  115. n113=  halt
  116. n114=}
  117. n115=on 1:FILERCVD:*:{
  118. n116=  if (%tvgot [ $+ [ $nopath($filename) ] ] ) {
  119. n117=    dde control $ddename copyfile $filename $+ @ $+ $wavedir $+ $nopath($filename)
  120. n118=    unset %tvgot [ $+ [ $nopath($filename) ] ]
  121. n119=  }
  122. n120=  elseif ($fserv($nick) != $null) {
  123. n121=    set %bytes $lof($filename)
  124. n122=    if %bytes != $null msg =$nick 4,0Received:3,0 $filename 3,0( $+ %bytes bytes)
  125. n123=    if (%fsenforceratio) {
  126. n124=      inc %fservcredits [ $+ [ $fsady($nick) ] ] $calc(%fservratio * %bytes)
  127. n125=      msg =$nick 2,0New Credit:12,0 $fservcredits($nick) bytes
  128. n126=    }
  129. n127=  }
  130. n128=}
  131. n129=on 1:GETFAIL:if (%tvgot [ $+ [ $nopath($filename) ] ] ) unset %tvgot [ $+ [ $nopath($filename) ] ]
  132. n130=on 1:INPUT:{
  133. n131=  if (($chr(35) isin $active) && ($right($1,1) = :)) {
  134. n132=    ; nick completion section
  135. n133=    if ($right($1,2) = ::) set %find * $+ $replace($1,::,*!*@*)
  136. n134=    else set %find * $+ $replace($1,:,*!*@*)
  137. n135=    if $len(%find) = 6 { say $1- | halt }
  138. n136=    set %fnick $ialchan(%find,$active,1).nick
  139. n137=    if %fnick != $null {
  140. n138=      if ($right($1,2) = ::) say %ncstart $+ %fnick $+ %ncend $2-
  141. n139=      else say %fnick $+ : $2-
  142. n140=      halt
  143. n141=    }
  144. n142=  }
  145. n143=  if (($server != $null) && (%autoaway)) {
  146. n144=    if ((%autoset) && ($away)) { altech -a 3Telling the server you are no longer away... | set %autoset $false | away }
  147. n145=    autoaway
  148. n146=  }
  149. n147=}
  150. n148=#regdns on
  151. n149=on 1:DNS: {
  152. n150=  altech -a %dis38 $+ *** DNS report for: $+ %dis39 $nick
  153. n151=  altech -a %dis38 $+ *** Address: $+ %dis39 $address
  154. n152=  if $raddress = $null altech -a %dis38 $+ *** Could not resolve
  155. n153=  else altech -a %dis38 $+ *** Resolved: $+ %dis39 $raddress
  156. n154=}
  157. n155=#regdns end
  158. n156=#telnetdns off
  159. n157=on 1:DNS: {
  160. n158=  .disable #telnetdns | .enable #regdns
  161. n159=  if ($isnumericip($raddress)) telnet $nick $raddress
  162. n160=  elseif ($isnumericip($address)) telnet $nick $address
  163. n161=  else echo 4 -a Could not determine IP for $nick
  164. n162=}
  165. n163=#telnetdns end
  166. n164=alias indcc {
  167. n165=  ; is IP $1 in any type of DCC? ($true/$false)
  168. n166=  if $fserv($1) != $null return $true
  169. n167=  if $get($1) != $null return $true
  170. n168=  if $send($1) != $null return $true
  171. n169=  if $chat($1) != $null return $true
  172. n170=  return $false
  173. n171=}
  174. n172=alias goticmp {
  175. n173=  if ($indcc($1)) halt
  176. n174=  if (($1 iswm %wmip) || (%wmip iswm $1)) halt
  177. n175=  if (%tvjustgot [ $+ [ $1 ] ] ) halt
  178. n176=  set %tvjustgot [ $+ [ $1 ] ] $true
  179. n177=  .timer 1 300 unset %tvjustgot [ $+ [ $1 ] ]
  180. n178=  echo -a %dis24 $+ -ICMP Detector- %dis25 $+ ICMP detected from: $1
  181. n179=  inc %fnum | set %findnick [ $+ [ %fnum ] ] $1
  182. n180=  .timer38 1 1 findit
  183. n181=}
  184. n182=alias matchnick if %matchnick != $null dde $1 $ddename txtNick %matchnick
  185. n183=alias findit {
  186. n184=  :nx
  187. n185=  inc %findnum | set %ip %findnick [ $+ [ %findnum ] ]
  188. n186=  if ((%ip != $null) && (%findnum <= %fnum)) {
  189. n187=    if (%justfound [ $+ [ %ip ] ] ) goto nx
  190. n188=    set %justfound [ $+ [ %ip ] ] $true
  191. n189=    .timer 1 900 unset %justfound [ $+ [ %ip ] ]
  192. n190=    set %matchnick $ial( [ [ * ] $+ [ %ip ] ] ,1).nick
  193. n191=    if %matchnick = $null { .enable #findmatch | .disable #regdns | .dns %ip }
  194. n192=    else {
  195. n193=      echo -a %dis24 $+ -ICMP Detector- %dis25 $+ matched %ip to nick: %matchnick
  196. n194=      .timer 1 2 findit
  197. n195=    }
  198. n196=  }
  199. n197=  else { unset %findnick* | unset %findnum | unset %fnum }
  200. n198=}
  201. n199=alias findit2 {
  202. n200=  :nx
  203. n201=  inc %findnum2 | set %ip %findnick2 [ $+ [ %findnum2 ] ]
  204. n202=  if ((%ip != $null) && (%findnum2 <= %fnum2)) {
  205. n203=    set %matchnick $ial( [ [ * ] $+ [ %ip ] ] ,1).nick
  206. n204=    if %matchnick = $null { .enable #findmatch2 | .disable #regdns | .dns %ip }
  207. n205=    else {
  208. n206=      echo -a %dis24 $+ -Connection Monitor- %dis25 $+ matched %ip to nick: %matchnick
  209. n207=      .timer 1 2 findit2
  210. n208=    }
  211. n209=  }
  212. n210=  else { unset %findnick2* | unset %findnum2 | unset %fnum2 }
  213. n211=}
  214. n212=#scanlookup off
  215. n213=on 1:DNS: {
  216. n214=  .disable #scanlookup | .enable #regdns
  217. n215=  if $raddress = $null dde icmpdet $ddename gotip Could not resolve
  218. n216=  else {
  219. n217=    dde icmpdet $ddename gotip $raddress
  220. n218=    if %matchnick = $null {
  221. n219=      set %matchnick $ial( [ [ * ] $+ [ $raddress ] ] ,1).nick
  222. n220=      if %matchnick = $null dde icmpdet $ddename txtNick None Found
  223. n221=      else dde icmpdet $ddename txtNick %matchnick
  224. n222=    }
  225. n223=  }
  226. n224=}
  227. n225=#scanlookup end
  228. n226=#findmatch off
  229. n227=on 1:DNS: {
  230. n228=  .disable #findmatch | .enable #regdns | .timer 1 20 .disable #findmatch
  231. n229=  set %matchnick $ial( [ [ * ] $+ [ $raddress ] ] ,1).nick
  232. n230=  if %matchnick != $null echo -a %dis24 $+ -ICMP Detector- %dis25 $+ matched %ip to nick: %matchnick
  233. n231=  else echo -a %dis24 $+ -ICMP Detector- %dis25 $+ could not find a match for %ip on local channels
  234. n232=  .timer 1 2 findit
  235. n233=}
  236. n234=#findmatch end
  237. n235=#match off
  238. n236=on 1:DNS: {
  239. n237=  .disable #match | .enable #regdns
  240. n238=  if $raddress != $null {
  241. n239=    altech -a %dis10 $+ Resolved %mip to $raddress
  242. n240=    if ($ial( [ [ * ] $+ [ $raddress ] ] ,1).nick != $null) altech -a %dis10 $+ Matched %mip to nick: $ial( [ [ * ] $+ [ $raddress ] ] ,1).nick
  243. n241=    else { 
  244. n242=      altech -a %dis10 $+ Could not find a match for %mip on local channels
  245. n243=      altech -a %dis10 $+ Press Shift-F1 to do a /who on this address
  246. n244=      set %tvmip * $+ $raddress
  247. n245=    }
  248. n246=  }
  249. n247=  else altech -a %dis10 $+ Could not resolve %mip
  250. n248=}
  251. n249=#match end
  252. n250=#findmatch2 off
  253. n251=on 1:DNS: {
  254. n252=  .disable #findmatch2 | .enable #regdns | .timer 1 20 .disable #findmatch2
  255. n253=  set %matchnick $ial( [ [ * ] $+ [ $raddress ] ] ,1).nick
  256. n254=  if %matchnick != $null echo -a %dis24 $+ -Connection Monitor- %dis25 $+ matched %ip to nick: %matchnick
  257. n255=  else echo -a %dis24 $+ -Connection Monitor- %dis25 $+ could not find a match for %ip
  258. n256=  .timer 1 2 findit2
  259. n257=}
  260. n258=#findmatch2 end
  261. n259=#connectionlookup off
  262. n260=on 1:DNS: {
  263. n261=  .disable #connectionlookup | .enable #regdns
  264. n262=  if $raddress = $null dde monitor $ddename gotip Could not resolve
  265. n263=  else {
  266. n264=    dde monitor $ddename gotip $raddress
  267. n265=    if %matchnick = $null {
  268. n266=      set %matchnick $ial( [ [ * ] $+ [ $raddress ] ] ,1).nick
  269. n267=      if %matchnick = $null dde monitor $ddename txtNick None Found
  270. n268=      else dde monitor $ddename txtNick %matchnick
  271. n269=    }
  272. n270=  }
  273. n271=}
  274. n272=#connectionlookup end
  275. n273=; /* if I'm doing a nick flood, keep track of when I'm done so I know when
  276. n274=;     to take my nick back */
  277. n275=#nflood off
  278. n276=on +70:NICK:inc %fc | if %fc = %ch { nick %me | .disable #nflood }
  279. n277=#nflood end
  280. n278=on 1:NOTIFY:{
  281. n279=  if (%doneinit) speak $nick is on IRC
  282. n280=  if (%altnotify) {
  283. n281=  set %tvnotify [ $+ [ $nick ] ] $true | userhost $nick
  284. n282=  .timer 1 5 unset %tvnotify [ $+ [ $nick ] ]
  285. n283=  }
  286. n284=  halt
  287. n285=}
  288. n286=on 1:UNOTIFY:if (%altnotify) { altech -a %dis1 $+ *** $nick has left IRC | halt }
  289. n287=on 1:TOPIC:#:{
  290. n288=  if (%urd) { z | echo 1 $me $chan $+ : $nick changes topic to " $+ $parms $+ " }
  291. n289=  if (($nick = $me) || ((+t isin $chan($chan).mode) && ($me !isop $chan))) halt
  292. n290=  if ((%tvlocktopic [ $+ [ $chan ] ] ) && ($1- != %tvtopic [ $+ [ $chan ] ] )) {
  293. n291=    if %tvtopic [ $+ [ $chan ] ] != $null topic $chan %tvtopic [ $+ [ $chan ] ]
  294. n292=  }
  295. n293=}
  296. n294=;
  297. n295=;   invite routine when you're opped
  298. n296=;
  299. n297=on 1:INVITE:#:{
  300. n298=  if (%urd) { z | echo 3 $me You have been invited to $chan by $nick }
  301. n299=  set %inv $chan | set %ivn $nick | set %iva $a3($nick) | if %iva = $null set %iva $mask( [ $fulladdress ] ,3)
  302. n300=  .timer 1 60 unset %inv | .timer 1 60 unset %ivn
  303. n301=  if $ulevel != 70 tignore i 30 $mask( [ $fulladdress ] ,3)
  304. n302=  if $ulevel > 18 echo 3 -a You have been invited to $chan by $nick (recognized)
  305. n303=  else echo 3 -a You have been invited to $chan by $nick (un-recognized)
  306. n304=  echo 4 -a Press Shift-F6 to join $chan
  307. n305=  if $ulevel < 18 {
  308. n306=    if (%invite) {
  309. n307=      if $comchan($nick,0) != 0 {
  310. n308=        %i = 0
  311. n309=        :nx
  312. n310=        inc %i
  313. n311=        if $chan(%i) != $null {
  314. n312=          if (($me isop $chan(%i)) && ($nick ison $chan(%i))) {
  315. n313=            echo $chan(%i) %dis3 $+ Invites suck! %dis4 Kicking $nick for inviting you to $chan
  316. n314=            kickban $a3($nick) $chan(%i) %invitemsg
  317. n315=            rtb $a3($nick) $chan(%i)
  318. n316=          }
  319. n317=          goto nx
  320. n318=        }
  321. n319=      }
  322. n320=    }
  323. n321=    elseif $a3($nick) != $null echo 4 -a Press Shift-F5 to kick-ban $nick
  324. n322=  }
  325. n323=  alert
  326. n324=}
  327. n325=;
  328. n326=;                                             on nicks
  329. n327=;
  330. n328=on +70:NICK:{
  331. n329=  if ((%ak) && ($newnick = ElmerFudd)) { $readini $mircdirmisc.ini kicks 42 | set %ak $false }
  332. n330=  if ((%tvsettingaway) && ($newnick = %tvawaynick)) { unset %tvsettingaway | setaway %awayreason }
  333. n331=  else {
  334. n332=    .ruser $nick | .auser 70 $newnick | nctxt $nick $newnick
  335. n333=    set %myadr $replace(%myadr,$nick,$newnick)
  336. n334=    if ((%getnick) && ($newnick != %mynick) && (%dontcare != $true)) getnick
  337. n335=  }
  338. n336=}
  339. n337=on 1!:NICK:{
  340. n338=  nctxt $nick $newnick
  341. n339=  if ($checknickflood($newnick)) {
  342. n340=    inc %tvnchg [ $+ [ $site ] ]
  343. n341=    .timer 1 %nickin unset %tvnchg [ $+ [ $site ] ]
  344. n342=    if (%tvnchg [ $+ [ $site ] ] >= %nickis) { 
  345. n343=      %i = 0
  346. n344=      :nx
  347. n345=      inc %i
  348. n346=      if $chan(%i) != $null {
  349. n347=        if (($notfriend($newnick,$chan(%i))) && ($newnick ison $chan(%i))) kickbanall $a3($newnick) $chan(%i) %nickfloodmsg
  350. n348=        goto nx
  351. n349=      }
  352. n350=      if (%ekick) altech -a %dis3 $+ Nick Changed Flood Detected! %dis4 $+ Banning $newnick ( $+ $a3($newnick) $+ )
  353. n351=      if (%snick = ding) ding
  354. n352=      elseif (%snick = speak) speak nick flood detected, kicking $newnick
  355. n353=      elseif (%snick != none) splay %snick
  356. n354=    }
  357. n355=    elseif (%eflood) altech -s %dis16 $+ Nick change flood detector watching $newnick %dis17 $+ (offense %tvnchg [ $+ [ $site ] ] $+ )
  358. n356=  }
  359. n357=  %m = 0
  360. n358=  :nx2
  361. n359=  inc %m
  362. n360=  if $chan(%m) != $null {
  363. n361=    if (%idlekick [ $+ [ $chan(%m) ] ] ) {
  364. n362=      set %temp $readini $mircdiridle.ini $chan(%m) $nick
  365. n363=      if %temp = $null set %temp $ctime
  366. n364=      remini $mircdiridle.ini $chan(%m) $nick
  367. n365=      writeini $mircdiridle.ini $chan(%m) $newnick %temp
  368. n366=    }
  369. n367=    goto nx2
  370. n368=  }
  371. n369=}
  372. n370=on +17:NICK:.auser 17 $newnick | .timer 1 30 .ruser 17 $newnick | .ruser 17 $nick
  373. n371=on +18:NICK:.auser 18 $newnick | .timer 1 30 .ruser 18 $newnick | .ruser 18 $nick
  374. n372=;
  375. n373=;  #MockLamer stuff
  376. n374=;
  377. n375=on 1:TEXT:|mocklamer request|*:#mocklamer: {
  378. n376=  if (%mocklamer) raw -q notice $nick :LamerMocking is active
  379. n377=  else raw -q notice $nick :LamerMocking is currently not active
  380. n378=}
  381. n379=on 1:TEXT:|mocklamer*:#mocklamer: {
  382. n380=  if (%mocklamer) {
  383. n381=    inc %mocks | .timer 1 10 unset %mocks
  384. n382=    if %mocks > 5 {
  385. n383=      ; don't send more than 5 in 10 seconds so you won't flood yourself
  386. n384=      if (%tvsentnotice [ $+ [ $mask( [ $fulladdress ] ,3 ) ] ] != $true) {
  387. n385=        ; if I didn't just send this person a notice, send him one saying that I'm busy
  388. n386=        ; I'm doing this so you can't be made to flood yourself with the "try again later" notices
  389. n387=        ; lets not be fooled by clones... check by user@*.domain address
  390. n388=        ; if I have sent this notice recently, just ignore the request quietly
  391. n389=        set %tvsentnotice [ $+ [ $mask( [ $fulladdress ] ,3 ) ] ] $true
  392. n390=        .timer 1 10 unset %tvsentnotice [ $+ [ $mask( [ $fulladdress ] ,3 ) ] ]
  393. n391=        raw -q notice $nick :Sorry, there's too many lamers out there... try again in a few seconds!
  394. n392=        echo 4 #MockLamer Ignoring mock reqest by $nick 3,0(flood protection)
  395. n393=      }
  396. n394=    }
  397. n395=    else {
  398. n396=      ; verify that the lamer, $2, is actually on IRC...  turn it over to raw.ini
  399. n397=      if (%tvrequested [ $+ [ $2 ] ] ) {
  400. n398=        if (%tvsentnogo [ $+ [ $mask( [ $fulladdress ] ,3 ) ] ] != $true) {
  401. n399=          set %tvsentnogo [ $+ [ $mask( [ $fulladdress ] ,3 ) ] ] $true
  402. n400=          .timer 1 15 unset %tvsentnogo [ $+ [ $mask( [ $fulladdress ] ,3 ) ] ] 
  403. n401=          raw -q notice $nick :Sorry, a mock was just sent to $2 recently
  404. n402=          echo 4 #MockLamer Ignoring request to mock $2 (just mocked)
  405. n403=        }
  406. n404=        else echo 4 #MockLamer Ignoring request to mock $2 (just mocked) 3,0(repetitive request)
  407. n405=      }
  408. n406=      else {
  409. n407=        set %tvrequested [ $+ [ $2 ] ] $true
  410. n408=        .timer 1 15 unset %tvrequested [ $+ [ $2 ] ]
  411. n409=        set %tvmocker [ $+ [ $2 ] ] $nick | .enable #verifylamer | set %mockee $2 | userhost $2
  412. n410=      }
  413. n411=    }
  414. n412=  }
  415. n413=  else echo 4 #MockLamer MockLamer ignored 3,0(it's off!)
  416. n414=}
  417. n415=;
  418. n416=;                         the next few go along with action kicks
  419. n417=;
  420. n418=on +17:OP:#:{
  421. n419=  describe $chan suddenly remembers that in $chan we don't op ASSHOLES!!!
  422. n420=  mode $chan -o+b $opnick $a3($opnick)
  423. n421=  kick $chan $opnick Go get ops in #Assholes!!!
  424. n422=  rtb $a3($opnick) $chan
  425. n423=  .ruser $opnick
  426. n424=}
  427. n425=on +18:OP:#:{
  428. n426=  describe $chan suddenly remembers that in $chan we don't op ASSHOLES!!!
  429. n427=  mode $chan -o $opnick | kick $chan $opnick Go get ops in #Assholes!!! | .ruser $opnick
  430. n428=}
  431. n429=#regctcp on
  432. n430=on 1:CTCPREPLY:*:{
  433. n431=  if ($1 = PING) {
  434. n432=    if (%acPING) echo 4 -a [[ $+ $nick PING reply]: $dur2($calc($ctime - $2))
  435. n433=    else echo 4 -s [[ $+ $nick PING reply]: $dur2($calc($ctime - $2))
  436. n434=    if ((%redirect) && ($me ison %rchan) && ($nick ison %rchan)) msg %rchan [[ $+ $nick PING reply]: $dur2($calc($ctime - $2))
  437. n435=    if $nick = %pingnick { unset %pingnick | raw -q notice $nick :Your ping reply is: $dur2($calc($ctime - $2)) }
  438. n436=  }
  439. n437=  elseif (($ulevel > 18) && ($1 = flood_alert)) {
  440. n438=    echo 4 -s [[ $+ $nick $1 reply $+ ]]: $2-
  441. n439=    echo 5 -s Adding $6 to ignore list for 60 seconds
  442. n440=    .ignore -t $6 | .timer 1 60 .ignore -r $6
  443. n441=  }
  444. n442=  else {
  445. n443=    if (%ac [ $+ [ $1 ] ] ) echo 4 -a [[ $+ $nick $1 reply]: $2-
  446. n444=    else echo 4 -s [[ $+ $nick $1 reply]: $2-
  447. n445=  }
  448. n446=  halt
  449. n447=}
  450. n448=#regctcp end
  451. n449=on 70:CTCPREPLY:*:{
  452. n450=  if ($1 = LAGCHECK) {
  453. n451=    if (($usermodes = $null) || ($usermodes = +)) titlebar Little Star 6.1  $me on $server $+ : $+ $port  Lag: $calc($ctime - $2) secs
  454. n452=    else titlebar Little Star 6.1  $me $usermodes on $server $+ : $+ $port  Lag: $calc($ctime - $2) secs
  455. n453=    if ($calc($ctime - $2) > %exclagis) { echo 4 -a Excessive Lag Detected ( $+ $dur2($calc($ctime - $2)) $+ ) on $server $+ : $port | alert }
  456. n454=  }
  457. n455=  elseif ($1 = flood_alert) {
  458. n456=    echo 4 -s [[ $+ $nick $1 reply $+ ]]: $2-
  459. n457=    echo 5 -s Adding $6 to ignore list for 60 seconds
  460. n458=    .ignore -t $6 | .timer 1 60 .ignore -r $6
  461. n459=  }
  462. n460=  elseif ($1 = PING) {
  463. n461=    if (%acPING) echo 4 -a [[ $+ $nick PING reply]: $dur2($calc($ctime - $2))
  464. n462=    else echo 4 -s [[ $+ $nick PING reply]: $dur2($calc($ctime - $2))
  465. n463=  }
  466. n464=  else {
  467. n465=    if (%ac [ $+ [ $1 ] ] ) echo 4 -a [[ $+ $nick $1 reply]: $2-
  468. n466=    else echo 4 -s [[ $+ $nick $1 reply]: $2-
  469. n467=  }
  470. n468=  halt
  471. n469=}
  472.